home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / I-Info Magazine / (c)i19.d64 / label pro4.1 doc (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  99 lines
  1. 1 GOTO98
  2. 2 POKE53281,0:POKE53280,0
  3. 3 PRINT"[147]":PRINT""
  4. 4 PRINT"[154]                                   "
  5. 5 PRINT"    LABEL PRO 4.1 DOCUMENTATION    "
  6. 6 PRINT"[158]         (C) 1986 SHAREWARE        "
  7. 7 PRINT"      SEND $5 TO BE REGISTERED     "
  8. 8 PRINT"                                   "
  9. 9 RETURN
  10. 10 PRINT:PRINT"[158]     LABEL PRO 4.1 [146] IS AN ADVANCED "
  11. 11 PRINT"    LABEL DEVELOPMENT SYSTEM.  IT "
  12. 12 PRINT"    IS ALL WINDOW MENU DRIVEN COM-"
  13. 13 PRINT"    PLETE WITH HELP WINDOW.  THE"
  14. 14 PRINT"    SETUP WINDOW ALLOWS YOU TO SE-"
  15. 15 PRINT"    LECT A VARIETY OF SETTINGS FOR"
  16. 16 PRINT"    YOUR PRINTER INCLUDING FONTS +"
  17. 17 PRINT"    (LOADABLE FONTS) AVAILABLE FROM"
  18. 18 PRINT"    FONTMASTER I.                   "
  19. 19 PRINT"                                    "
  20. 20 PRINT"    THE PROGRAM ALLOWS YOU TO SELECT"
  21. 21 PRINT"    FROM 1 TO 8 LINE LABELS.  FROM "
  22. 22 PRINT"    THE MAIN MENU  CHOICES INCLUDE"
  23. 23 PRINT"    (E)DIT/CREATE, (S)ETUP PRINT, "
  24. 24 PRINT"    (L)INE NUMBER (NO. OF LINES),"
  25. 25 PRINT"    (C)REDITS, (P)RINT LABELS,     "
  26. 26 PRINT"    (H)ELP, AND (Q)UIT.           "
  27. 27 PRINT"            HIT  ANY  KEY [146]
  28. 28 [161] X$
  29. 29 [139] X$[178]"" [167] 28
  30. 30 [129] I[178]1[164] 500
  31. 31 [130]I
  32. 32 [151]198,0
  33. 33 [142]
  34. 34 [153]"SYS":[153]"    AFTER SELECTING (E)DIT/CREATE,"
  35. 35 [153]"    ENTER '+' IN FIRST COLUMN OF  "
  36. 36 [153]"    TEXT FOR EXPANDED PRINT, '-'"
  37. 37 [153]"    REGULAR PRINT, '_' - BLANK LINE."
  38. 38 [153]"    THEN SIMPLY ENTER YOUR TEXT.  TO"
  39. 39 [153]"    (E)DIT OR CHANGE TEXT, SELECT "
  40. 40 [153]"    (E)DIT/CREATE FROM THE MAIN MENU."
  41. 41 [153]"    THEN, TYPE OVER, INSERT, OR DE-"
  42. 42 [153]"    LETE TEXT, BEFORE PRESSING RETURN "
  43. 43 [153]"    FOR NEXT LINE OF TEXT.  DO NOT USE "
  44. 44 [153]"    CURSOR-UP/DOWN WHILE IN THIS MODE."
  45. 45 [153]"    IF YOU NEED (H)ELP, MAKE THAT"
  46. 46 [153]"    SELECTION FROM THE MAIN MENU.   "
  47. 47 [153]"                                    "
  48. 48 [153]"    SELECT SECONDARY ADDRESS '10' FOR"
  49. 49 [153]"    FONTS+.   YOU MUST HAVE LOADED "
  50. 50 [153]"    FONTS+ PRIOR TO LOADING LABEL PRO."
  51. 51 [153]"            HIT  ANY  KEY WAIT
  52. 52 GET A$
  53. 53 IF A$=""THEN 52
  54. 54 FOR I=1TO 500
  55. 55 NEXTI
  56. 56 POKE198,0
  57. 57 RETURN
  58. 58 PRINT
  59. 59 PRINT"[158]    NOTE: IF YOU SELECT FROM (S)ET-"
  60. 60 PRINT"    UP PRINT, SECONDARY ADDRESS 0,"
  61. 61 PRINT"    IN ORDER TO VIEW THE UPPERCASE"
  62. 62 PRINT"    DEPRESS THE COMMODORE AND SHIFT"
  63. 63 PRINT"    KEYS SIMULTANEOUSLY.  THIS WILL"
  64. 64 PRINT"    TEMPORARILY CAUSE THE SCREEN"
  65. 65 PRINT"    FORMAT TO LOOK UNUSUAL IN PLACES"
  66. 66 PRINT"    AS IT WAS DESIGNED PRIMARILY"
  67. 67 PRINT"    FOR UPPER/LOWER CASE. ":PRINT
  68. 68 PRINT"    FONT SLOTS '1' AND '5' IN FONTS+"
  69. 69 PRINT"    MAY NOT NOT WORK PROPERLY IN ALL"
  70. 70 PRINT"    CASES AND MAY NEED TO BE AVOIDED."
  71. 71 PRINT"                                   "
  72. 72 PRINT"    FUTURE ENHANCEMENTS OF LABEL"
  73. 73 PRINT"    PRO WILL LOOK FOR SOLUTIONS TO "
  74. 74 PRINT"    THESE MINOR PROBLEMS.          "
  75. 75 PRINT"            HIT  ANY  KEY [146]
  76. 76 [161] B$
  77. 77 [139] B$[178]""[167] 76
  78. 78 [129] I[178]1[164] 500
  79. 79 [130]I
  80. 80 [151]198,0
  81. 81 [142]
  82. 82 [153]:[153]:[153]
  83. 83 [153]"    SYS(L)OAD LABEL PRO 4.1      "
  84. 84 [153]"    (R)E-READ DOCUMENTATION"
  85. 85 [153]"    (Q)UIT
  86. 86 GET G$
  87. 87 POKE198,0
  88. 88 IF G$<>"L"ANDG$<>"R"AND G$<>"Q" THEN 86
  89. 89 IF G$="R" THEN GOTO1
  90. 90 IF G$="Q" THEN GOTO96
  91. 91 IF G$="L" THEN 92
  92. 92 IF X=0 THEN X=1
  93. 93 PRINT"[147]LOAD";CHR$(34);"LABEL PRO4.1";CHR$(34);",8,1"
  94. 94 PRINT"":POKE198,4:POKE631,13:POKE632,82:POKE633,213:POKE634,13
  95. 95 NEW
  96. 96 SYS64738
  97. 97 PRINT"[144] "
  98. 98 GOSUB2:GOSUB10:CLR:GOSUB2:GOSUB34:GOSUB2:GOSUB58:GOSUB2:GOTO82
  99.